Mac Expert 2/Mac_Expert_2.iso/Applications/T-Script v3.0/T-Script APD, PPD for Aldus/TScript.apd

Aldus Printer Driver | 1991-12-13 | 10.7 KB | 261 lines | [TEXT/ALD4]

@Comment: TScript.apd
@Comment: Aldus Printer Description (APD) file.
@Comment:         $Revision:   1.0  $
@Comment:        $Date:   13 Dec 1991 10:42:44  $
@Comment: This APD produced for use with Aldus PageMaker 4.0 or earlier version.
@Comment: Keyword values are currently limited to 255 characters in length.

@Comment: This APD matches PageMaker's built-in General APD. Changes should be concurrent.

@FormatVersion: "1.0"
@Comment: Cause no warning message:
@Product: "(TScript)"
@PSVersion: "(47.0)"
@PSRevision: "0"

@Comment: Assume 300 dpi laser printer:
@Resolution: "300 300"

@AllowComments: "true"
@AllowVMQuery: "true"

@Comment:  "FreeVM" value is equivalent to vmstatus "maximum" minus "used" values
@Comment: Use value for LaserWriter:
@FreeVM: "150000"
@WorkingMem: "20000"
@AldusHeaderMem: "34000"

@Comment: PatchFile is sent right after %%EndComments, AldusPatchFile right before %%EndSetup.
@PatchFile: "statusdict begin 0 setjobtimeout end userdict /AldusDict known {(A previous version PageMaker header is loaded.) = flush} if"
@AldusPatchFile: ""
@ExitServer: "serverdict begin exitserver "
@Password: "0"

@ScreenFreq: ""
@ScreenAngle: ""
@ScreenProc: ""
@Comment: Use inverting screen proc from Lino, not LaserWriter:
@InvertScreenProc: "{abs exch abs 2 copy add 1 gt {1 sub dup mul exch 1 sub dup mul
add 1 exch sub}{dup mul exch dup mul add 1 sub} ifelse}"
@End
@Transfer: ""
@InvertTransfer: "{1 exch sub}"

@Comment:  Use normalized transfer for LaserWriter:
@NormalizedTransfer: "{
mark
1.0 1.0 .98 .9 .82 .68 .56 .48 .28 .1 .06 .0
counttomark dup 3 add -1 roll exch
2 sub mul dup floor cvi
dup 3 1 roll sub
exch dup
3 add index exch 2 add index dup
4 1 roll
sub mul add
counttomark 1 add 1 roll
cleartomark
} bind"
@End

@InvertNormalizedTransfer: "{
mark
.0 .0 .06 .1 .28 .48 .56 .68 .82 .9 .98 1.0
counttomark dup 3 add -1 roll exch
2 sub mul dup floor cvi
dup 3 1 roll sub
exch dup
3 add index exch 2 add index dup
4 1 roll
sub mul add
counttomark 1 add 1 roll
cleartomark
} bind"
@End

@Comment: Allow for optional file system:
@?FontList: "save FontDirectory { pop = flush } forall
systemdict /filenameforall known {userdict /SC 100 string put
(fonts/*) {dup length 6 sub 6 exch getinterval = flush} SC filenameforall} if
(*) = flush restore"
@End


@Comment: If 11 or more saves, VM query makes memory look full, PM will flush fonts.
@?VMStatus: "vmstatus 3 -1 roll dup 10 gt
{3 1 roll exch pop dup} {3 1 roll} ifelse == == == flush"
@End

@?OutputOrder: "statusdict /pagestackorder known
{statusdict /pagestackorder get exec {(facedown)}{(faceup)}
ifelse}{(faceup)}ifelse = flush"
@End

@Comment: Paper tray query compares returned value with selected PageSize,
@Comment:    up to length of returned value only: i.e, "A4" matches "A4small"
@?PaperTray: "mark () statusdict /printerstatus known {
userdict /T statusdict /printerstatus get exec 16#07E and put
 T 2 eq {(A4)} if T 8 eq {(Letter)} if T 24 eq {(Legal)} if} if
 = flush cleartomark"
@End

@Comment: PageSize options appear in the "Paper" list box in the Printer-specific dialog.
@DefaultPageSize: "Letter"
@PageSize Letter: "letter"
@PageSize A4: "userdict /a4 known {a4} {letter} ifelse"
@PageSize Legal: "userdict /legal known {legal} {letter} ifelse"
@PageSize Tabloid: "userdict /tabloid known {tabloid} {letter} ifelse"
@PageSize A3: "userdict /a3 known {a3} {letter} ifelse"
@PageSize B5: "userdict /b5 known {b5} {letter} ifelse"

@Comment: PageRegion gives the printable area of each paper option.
@PageRegion Letter:     "0 0 576 768"
@PageRegion A4:         "0 0 560 798"
@PageRegion Legal:         "0 0 576 992"
@PageRegion Tabloid:    "0 0 756 1208"
@PageRegion A3:            "0 0 806 1176"
@PageRegion B5:            "0 0 464 702"

@Comment: PaperDimension gives the total paper size of each option.
@PaperDimension Letter:         "612 792"
@PaperDimension A4:             "595 842"
@PaperDimension Legal:             "612 1008"
@PaperDimension Tabloid:        "792 1224"
@PaperDimension A3:                "842 1190"
@PaperDimension B5:                "499 709"

@Comment: PaperTray commands are executed when available, except that PageSize commands
@Comment:        are used when manual feed is selected.
@PaperTray Letter:     "statusdict /lettertray known {statusdict begin lettertray end} {letter} ifelse"
@PaperTray A4:     "statusdict /a4tray known {statusdict begin a4tray end}
{userdict /a4 known {a4} {letter} ifelse} ifelse"
@End
@PaperTray Legal:     "statusdict /legaltray known {statusdict begin legaltray end}
{userdict /legal known {legal} {letter} ifelse} ifelse"
@End

@DefaultOutputOrder: "faceup"

@ManualFeed true: "statusdict /manualfeed known {statusdict /manualfeed true put} if"
@ManualFeed false: "statusdict /manualfeed known {statusdict /manualfeed false put} if"

@Comment: Use LaserWriter Plus fonts, except include both Helvetica-Narrow
@Comment:        and Helvetica-Condensed, to prevent downloading:

@DefaultFont: "Courier"
@Font "Times-Roman": "Standard" "(001.000)"
@Font "Times-Bold": "Standard" "(001.000)"
@Font "Times-Italic": "Standard" "(001.000)"
@Font "Times-BoldItalic": "Standard" "(001.000)"
@Font "Helvetica": "Standard" "(001.000)"
@Font "Helvetica-Bold": "Standard" "(001.000)"
@Font "Helvetica-Oblique": "Standard" "(001.000)"
@Font "Helvetica-BoldOblique": "Standard" "(001.000)"
@Font "Courier": "Standard" "(001.000)"
@Font "Courier-Bold": "Standard" "(001.000)"
@Font "Courier-Oblique": "Standard" "(001.000)"
@Font "Courier-BoldOblique": "Standard" "(001.000)"
@Font "Symbol": "Standard" "(001.000)"
@Font "Helvetica-Narrow": "Standard" "(001.000)"
@Font "Helvetica-Narrow-Oblique": "Standard" "(001.000)"
@Font "Helvetica-Narrow-Bold": "Standard" "(001.000)"
@Font "Helvetica-Narrow-BoldOblique": "Standard" "(001.000)"
@Font "Helvetica-Condensed": "Standard" "(001.000)"
@Font "Helvetica-Condensed-Oblique": "Standard" "(001.000)"
@Font "Helvetica-Condensed-Bold": "Standard" "(001.000)"
@Font "Helvetica-Condensed-BoldOblique": "Standard" "(001.000)"

@Comment: PrinterWarning beeps and displays the translation string in the status line.
@Comment: Parameter substitution of printer name for "^2" is not allowed in "...Alert" messages!
@PrinterWarning    "%%[ PrinterError: paper \where\ misfeed, \num\ pages may be lost ]%%"
                : "Printer “^2” needs attention: paper jam."
@PrinterWarning    "%%[ PrinterError: recorder not responding\code\]%%"
                : "Printer “^2” needs attention: recorder not responding \code\"
@PrinterWarning    "%%[ PrinterError: \Reason\ ]%%"
                : "Printer “^2” needs attention: \Reason\."

@ParameterReason    "no paper tray" :         "no paper tray"
@ParameterReason    "out of paper" :         "out of paper"
@ParameterReason    "cover open" :             "cover open"
@ParameterReason    "warming up" :             "warming up"
@ParameterReason    "service call" :         "service call"
@ParameterReason    "resetting printer" :     "resetting printer"
@ParameterReason    "cover open" :             "cover open"
@ParameterReason    "timeout, clearing printer" : "timeout"
@ParameterReason    "timeout" :             "timeout"
@ParameterReason    "manual feed timeout" : "manual feed timeout"
@ParameterReason    "no toner cartridge" :     "no toner cartridge"
@ParameterReason    "paper exit jam" :        "paper exit jam"
@ParameterReason    "poor fusing set" :        "fuser unit error or cover open"
@ParameterReason    "tray cover open" :        "tray cover open or no paper tray"
@ParameterReason    "poor developer set" :    "developer unit error or cover open"
@ParameterReason    "paper transporter jam" :    "paper transporter jam"
@ParameterReason    "-- Cover open" :         "cover open"
@ParameterReason    "Call key operator" :     "call key operator"
@ParameterReason    " Set Paper Stack" :     "adjust size of output bin"
@ParameterReason    "out of toner" :        "out of toner"
@ParameterReason    "PC life" :            "PC cartridge expired"
@ParameterReason    "no cartrige" :        "no PC cartridge"
@ParameterReason    "heater not ready" :             "cover open"


@Comment: The order of occurrence determines the order of parsing; put general messages last.
@PrinterWarning        "\s\status: PrinterError: recorder not responding\code\; source: \source\"
                : "Printer “^2” needs attention: recorder not responding \code\."
@PrinterWarning         "\s\status: PrinterError: \Reason\; source: \source\"
                : "Printer “^2” needs attention: \Reason\."
@PrinterWarning        "\s\status: PrinterError: \Reason\; source: \source\"
                : "Printer “^2” needs attention: \Reason\."

@Comment: PrinterMessage displays the translation string in the status line.
@PrinterMessage     "job: \username\; document: \jobname\; status: \Status\; source: \source\"
                : "User: \username\;  document: \jobname\;  status: \Status\."
@PrinterMessage     "job: \jobname\; status: \Status\; source: \source\"
                : "Document: \jobname\;  status: \Status\."
@PrinterMessage     "status: \Status\; source: \source\"
                : "Status: \Status\."
@PrinterMessage     "\Font1\ not found, using \Font2\"
                : "Font \Font1\ is not found on ^2, substituting \Font2\"

@ParameterStatus     "idle"    : "idle"
@ParameterStatus     "busy"    : "processing job"
@ParameterStatus     "waiting"    : "preparing data"
@ParameterStatus    "printing"    : "printing"

@Comment: a null translation string causes no message to display.
@PrinterMessage    "%%[ exitserver: permanent state may be changed ]%%"
                : ""
@PrinterMessage    "%%[ Flushing: rest of job (to end-of-file) will be ignored ]%%"
                : ""

@Comment: PrinterWarningAlert displays translation string in a warning-alert box and continues.
@PrinterWarningAlert "A previous version PageMaker header is loaded."
    : "Printer performance may improve if you do not print with PageMaker version 1.2 on this net."

@Comment: PrinterErrorAlert displays translation string in a stop-alert box and aborts printing.
@PrinterErrorAlert    "%%[ Error: rangecheck; OffendingCommand: \Tray\tray ]%%\s\"
                : "Please place the \Tray\ paper tray in your printer, and print again."

@ParameterTray     "letter" : "Letter"
@ParameterTray     "a4" : "A4"
@ParameterTray     "legal" : "Legal"

@PrinterErrorAlert    "%%[ Error: \fonterror\; OffendingCommand: fontdownload ]%%"
                : "The font being downloaded has not been initialized for this printer."
@PrinterErrorAlert    "%%[ Error: VMerror; OffendingCommand: \operator\ ]%%"
                : "Printer memory exceeded; turn printer off and on, or print smaller sections of the document."
@PrinterErrorAlert    "%%[ Error: timeout; OffendingCommand: \operator\ ]%%"
                : "The printer had to wait too long, and went on to the next job; try again."
@PrinterErrorAlert    "%%[ Error: \error\; OffendingCommand: \operator\ ]%%"
                : "Cannot print due to PostScript error: “\error\,” in command: “\operator\.”"
@PrinterErrorAlert    "Fatal system error \error\"
                : "The printer has encountered an error. Simplify your document or try again."
@Comment: "uncaught exception 7":
@PrinterErrorAlert    "%%[\s\ncaught\s\]%%"
                : "The disk in your printer may need reinitializing - call your dealer."
@PrinterErrorAlert    "%%[ Error: ioerror; OffendingCommand: filenameforall ]%%"
                : "The disk in your printer may need reinitializing - call your dealer."